REPORT 
ZDEMO INTERCTIVE RPRTS BUTTONS. 


types : begin of ty Іға1 , 


lifnr type lifnr , 

пате1 type пате1 gp, 
ortO1 type ortO1 ор, 
land1 type Іапа1 gp, 
end of ty Іға1. 


types : begin of ty ekko , 
ebeln type ebeln , 

aedat type erdat , 

LIFNR TYPE LIFNR, 

end of ty ekko. 


data : it Ifal type table of ty ІҒа1, 
it ekko type table of ty ekko, 
wa lfal type ty |Та1, 
wa ekko type ty ekko, 
v lifnr type lifnr, 
V МАМЕ1 TYPE МАМЕ1 GP, 
IT SELECTED LFA1 TYPE TABLE OF TY ІҒА1, 
v box(1) type c. 


select-options s lifnr for v lifnr default 1 to 100. 


select lifnr name1 ort01 land1 from Ifa1 into table it Ifal where 
lifnr in s lifnr. 


SET PF-STATUS 'ZSTATUS'. 
perform display data. 


Sy-Isind = 0. 


AT USER-COMMAND. 
CASE SY-UCOMM. 


WHEN 'SEAL'. 

V ВОХ = 'X' . " CHECKED. 
PERFORM DISPLAY_DATA. 
WHEN 'DSEAL'. 

V ВОХ = ''. "DESELECT 
PERFORM DISPLAY DATA. 
WHEN 'DOWN'. 

REFRESH IT SELECTED ІҒА1. 
DATA V LINES TYPE i. 


DESCRIBE LIST NUMBER OF LINES V LINES. 
DO V LINES TIMES. 


CLEAR WA ІҒА1. 
READ LINE SY-INDEX FIELD VALUE V BOX WA LFATI-LIFNR. 


ІРУ BOX = 'X'. 
CALL FUNCTION 'CONVERSION EXIT ALPHA INPUT' 
EXPORTING 
INPUT = WA LFAI1-LIFNR 
IMPORTING 
OUTPUT = WA LFAIT-LIFNR 


READ TABLE IT_LFA1 INTO WA_LFA1 WITH KEY lifnr = WA ІҒА1- 
LIFNR. 


IF SY-SUBRC = 0. 

APPEND WA LFA1 TO IT SELECTED ІҒА1. 
ENDIF. 

CLEAR : WA ІҒА1, V BOX. 

ENDIF. 

ENDDO. 


IF IT SELECTED ІҒА1 IS NOT INITIAL. 
CALL METHOD 
CL GUI FRONTEND SERVICES--GUI DOWNLOAD 
EXPORTING 
FILENAME = 'D:/BUTTON/BUTTON.TXT' 
write field separator = '' 
CHANGING 
DATA TAB = IT SELECTED ІҒА1. 


IF SY-SUBRC = 0. 

MESSAGE 'SUCCESSFUL DOWNLOADED: TYPE 'S'. " STATUS 
MESSAGE 

ENDIF. 


ELSE. 

MESSAGE "МО DATA TO DOWNLOAD ' TYPE 'S'. " STATUS 
MESSAGE 

ENDIF. 


WHEN 'GETPOS'. 
PERFORM COLLECT SELECTED LINES. 


IF IT SELECTED LFA1 IS NOT INITIAL.. 


SELECT EBELN AEDAT LIFNR INTO TABLE IT_EKKO FROM EKKO 
FOR ALL ENTRIES IN IT SELECTED LFA1 
WHERE LIFNR = IT SELECTED LFAIT-LIFNR. 


IF IT EKKO IS NOT INITIAL. 

SORT IT EKKO BY LIFNR EBELN. 

LOOP AT IT EKKO INTO WA EKKO. 

WRITE :/ SY-TABIX, WA EKKO-EBELN, WA EKKO-LIFNR, 
WA EKKO-AEDAT. 

ENDLOOP. 

ELSE. 

WRITE :/ 'NO PURCHASE FOUND FROM VENDER'. 


ENDIF. 


ELSE. 
MESSAGE 'NO VENDER SELECTED FROM THE LIST ' TYPE 'S'. 
ENDIF. 


ENDCASE. 


FORM DISPLAY DATA. 

LOOP AT it Ifa1 into wa lfa1. 

write :/ V BOX AS CHECKBOX , wa lfal-lifnr color 1 , wa lfal- 
name1 color З, wa lfal-ortO1 color 5, wa lfal-land1 color 7. 

ENDLOOP. 

ENDFORM. 


FORM COLLECT SELECTED LINES. 
REFRESH IT SELECTED ІҒА1. 
DATA V LINES TYPE І. 


DESCRIBE LIST NUMBER OF LINES V_LINES. 


DO V_LINES TIMES. 
CLEAR WA ІҒА1. 
READ LINE SY-INDEX FIELD VALUE V BOX WA LFAI-LIFNR. 


IFV BOX 2 'X'. 
CALL FUNCTION 'CONVERSION EXIT ALPHA INPUT' 
EXPORTING 
INPUT = WA LFAIT-LIFNR 
IMPORTING 
OUTPUT = WA LFAIT-LIFNR 


READ TABLE IT LFA1 INTO WA LFA1 WITH KEY LIFNR = 
WA LFATI-LIFNR. 


IF SY-SUBRC = 0. 
APPEND WA LFA1 TO IT SELECTED ІҒА1. 


ENDIF. 

CLEAR : WA ІҒА1, V BOX. 
ENDIF. 

ENDDO. 

ENDFORM. 


